home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t2.d64 / chargen peek.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  371b  |  12 lines
  1. 10 I=56333:O=1:CH=53248:GOTO30
  2. 20 POKEI,127:POKEO,51:X=PEEK(CH):POKEO,55:POKEI,129:RETURN
  3. 30 FORL=0TO256:POKE1924,L
  4. 40 GOSUB20:FORJ=7TO0STEP-1
  5. 50 IF(2^JANDX)=0THENPRINT" ";
  6. 60 IF(2^JANDX)<>0THENPRINT"[209]";
  7. 65 NEXT:PRINT"[212]
  8. 70 CH[178]CH[170]1:Z[178]Z[170]1:[139]Z[179]8[167]40
  9. 80 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":[153]"TOTOTOTOTOTOTOTO":Z[178]0:[130]
  10. 90 [143]  LINE 20 DISABLES INTERRUPTS,            & SWITCHES IN CHAR GENERATOR.
  11. 100 [143] THEN GETS A BYTE, SWITCHES OUT          CHAR GEN, ENABLES INT.
  12.